home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / pascalMode.tcl < prev    next >
Encoding:
Text File  |  1998-08-07  |  985 b   |  34 lines  |  [TEXT/ALFA]
  1.  
  2. alpha::mode Pasc 1.0.1 dummyPascal {*.p} {thinkRefMenu toolboxRefMenu electricSemicolon electricTab} {
  3.     set unixMode(pascal) {Pasc}
  4. }
  5.  
  6.  
  7. newPref v leftFillColumn {3} Pasc
  8. newPref v wordBreak {\w+} Pasc
  9. newPref f wordWrap {0} Pasc
  10. newPref v funcExpr {^[^ \t\(#\r/@].*\(.*\)$} Pasc
  11. newPref v wordBreakPreface {\W} Pasc
  12. newPref f autoMark    0 Pasc
  13.  
  14. set pascCommentRegexp    {/\*(([^*]/)|[^*]|\r)*\*/}
  15. set pascPreRegexp        {^\#[\t ]*[a-z]*}
  16. set pascKeyWords        {
  17.     procedure function integer while with return var const unit type interface
  18.     packed record begin end boolean if else repeat for downto case to of mod 
  19.     goto file do then program or label div until set not in forward and
  20.     implementation unit
  21. }
  22. regModeKeywords -b \{ \} -c red -k blue Pasc $pascKeyWords
  23. unset pascKeyWords
  24.  
  25. hook::register saveHook modified "Pasc"
  26.  
  27. #================================================================================
  28.  
  29. proc dummyPascal {} {}
  30.  
  31. proc Pasc::MarkFile {} {
  32.     message "Not yet (someone write me)"
  33. }
  34.